home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Apple II Magazines (PO)
/
Nibble Volume 12, No. 12 (1991-12)(MindCraft Publishing)(Side A)[a].zip
/
Nibble Volume 12, No. 12 (1991-12)(MindCraft Publishing)(Side A)[a].po
/
APPLE.KEYPRESS.bas
next >
Wrap
BASIC Source File
|
1996-12-24
|
901b
|
19 lines
10 REM PROGRAM APPLE.KEYPRESS
20 REM READ OPEN/CLOSED APPLE KEYPRESS ROUTINE
30 REM WORKS ON IIE/IIC/IIGS
40 HOME : PRINT "PRESS OPEN/CLOSED APPLE WITH A KEY": PRINT
50 K = PEEK(49152): IF K <128 THEN 50
60 REM READ KEYBOARD LOCATION
70 REM VALUE WILL BE <128 WHEN NO KEY HAS BEEN PRESSED
80 REM PRESSED KEY VALUE WILL BE ASCII VALUE + 128..HIGH BIT IS SET
90 A1 = PEEK(49249):A2 = PEEK(49250)
100 REM BUTTON/KEY LOCATIONS
110 POKE 49168,0: REM CLEAR KEY BOARD STROBE
120 IF (K -128) <32 THEN 160
130 PRINT "THE KEY PRESSED WAS ";: IF A1 >127 THEN PRINT "OPEN APPLE ";
140 IF A2 >127 THEN PRINT "CLOSED APPLE ";
150 PRINT CHR$(K -128): END : REM HANDLE NORMAL CHARACTERS
160 PRINT "THE KEY PRESSED WAS CTRL ";: IF A1 >127 THEN PRINT "OPEN APPLE ";
170 IF A2 >127 THEN PRINT "CLOSED APPLE ";
180 PRINT CHR$((K -128) +64): REM HANDLE CONTROL KEYSTOKES
190 END